home *** CD-ROM | disk | FTP | other *** search
/ 100 Plus Great Games 2 / 100PLUSV2.BIN / games / TroyReturns.dxr / 00006_Game Data Handlers.ls < prev    next >
Encoding:
Text File  |  2002-01-31  |  430 b   |  18 lines
  1. on generateMap
  2.   global terrainData_Type
  3.   terrainData_Type = []
  4.   mapSizeX = 150
  5.   mapSizeY = 13
  6.   repeat with whichY = 1 to mapSizeY
  7.     oneLiner = []
  8.     repeat with whichX = 1 to mapSizeX
  9.       if (whichX = 1) or (whichX = 1) or (whichY = mapSizeY) or (whichX = mapSizeX) then
  10.         add(oneLiner, 4)
  11.         next repeat
  12.       end if
  13.       add(oneLiner, 1)
  14.     end repeat
  15.     add(terrainData_Type, oneLiner)
  16.   end repeat
  17. end
  18.